home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0056_Get number STRING w-ZEROS.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  706b  |  16 lines
  1. {*****************************************************************************
  2.  * Function ...... StrZero()
  3.  * Purpose ....... To return a number as a string with leading zeros
  4.  * Parameters .... Num        Number to make into a string
  5.  *                 Len        Length of resultant string
  6.  * Returns ....... <Num> as a string, <Len> in length with leading zeros
  7.  * Notes ......... Uses the functions PadL and ITOS
  8.  * Author ........ Martin Richardson
  9.  * Date .......... May 13, 1992
  10.  *****************************************************************************}
  11. FUNCTION StrZero( Num, Len : LONGINT ) : STRING;
  12. BEGIN
  13.      StrZero := PadL( ITOS( Num, 0 ), Len, '0' );
  14. END; { StrZero }
  15.  
  16.